home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / bbs / server / octps074 / script / pd_local.scr < prev    next >
Encoding:
Text File  |  1996-10-13  |  521 b   |  30 lines
  1. #menulib
  2.  
  3. Submenu LOCAL
  4. Entry [1]FIDONETMAIL
  5. Entry [2]LOCAL
  6. Entry /Sysop[3]SYSOP.BBS
  7.      
  8. #endlib
  9.  
  10. :MSG_local
  11. DrawMenu LOCAL        Gosub draw_ascii_msg           
  12. DoMenu LOCAL
  13.   SelectChoice
  14.     Case 1    Setmsgarea FIDONETMAIL
  15.     Case 2    Setmsgarea LOCAL
  16.     Case 3    Setmsgarea SYSOP.BBS
  17.     Common  Readmessages
  18.             Gosub draw_bbsinfo
  19.             DrawMenu Msgbase
  20.   EndSelect
  21. EnddoChoice MenuBarKeys
  22.  
  23. /* Remove the submenu */
  24. IfChoice CursLeft
  25.     RemoveMenu LOCAL
  26.     ClrChoice               
  27. Endif
  28. Return
  29.  
  30.